home *** CD-ROM | disk | FTP | other *** search
/ Super Shareware Collection / Super Shareware Collection.iso / os_2 / pm22x333.zip / EXAMPLE0.ASM < prev    next >
Assembly Source File  |  1994-02-21  |  2KB  |  70 lines

  1. ; Simple GUS 669 player.
  2.  
  3.         .386p
  4. code32  segment para public use32
  5.         assume cs:code32, ds:code32
  6.  
  7. include pmode.inc
  8. include gsp669.inc
  9. include gs.inc
  10. include kb.inc
  11. include file.inc
  12. include argc.inc
  13.  
  14. public  _main
  15.  
  16. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  17. ; DATA
  18. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  19. errmsg0         db      'No GUS, no glory...$'
  20. errmsg1         db      'Error opening file!!!$'
  21. errmsg2         db      'SYNTAX: EXAMPLE0 <file>$'
  22.  
  23. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  24. ; CODE
  25. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  26.  
  27. include pdosmsg.rt
  28.  
  29. ;─────────────────────────────────────────────────────────────────────────────
  30. exiterr:
  31.         push edx
  32.         call _resetkb
  33.         pop edx
  34.         call _putdosmsg
  35.         jmp _exit
  36.  
  37. ;═════════════════════════════════════════════════════════════════════════════
  38. _main:
  39.         sti
  40.         call _initkb
  41.         call _gs_find
  42.         jnc short mf0
  43.         call _gs_ask
  44.         mov edx,offset errmsg0
  45.         jc exiterr
  46. mf0:
  47.         mov edx,_lomembase
  48.         xor al,al
  49.         call _cchekstr
  50.         mov edx,offset errmsg2
  51.         jc exiterr
  52.         mov edx,_lomembase
  53.         call _openfile
  54.         mov edx,offset errmsg1
  55.         jc exiterr
  56.         call _gsp669_init
  57.         mov eax,offset _readfile
  58.         mov edx,_lomembase
  59.         call _gsp669_load
  60.         call _closefile
  61.         call _gsp669_play
  62.         call _getch
  63.         call _gsp669_uninit
  64.         call _resetkb
  65.         jmp _exit
  66.  
  67. code32  ends
  68.         end
  69.  
  70.